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Steven M. Hoffberg 



From: Steven M. Hoffberg [steve@hoffberg.org] 
Sent: Thursday, November 18, 2004 12:15 PM 
To: 'Nguyen, Nga' 
Subject: 09/599,163 hash.c 

/* 



* hash.c - implements the HashTable Object 



* original copyright and authorship: * 

* Copyright 1988, 1989, 1990, 1991 Massachusetts Institute of Technology 

*RMS 6/15/87 

* hash.c : maintains a simple in-core hash table of name/value pairs * 

* modified by: David M. Oliver 

* Center for Geometry Analysis Numerics and Graphics 

* University of Massachusetts Amherst 

* oliver@gang.umass.edu 

* dmo 4.93 - extensive re-write to support void pointers, other generic ops 



7 

#include <stdio.h> 
#include <string.h> 

#define HASHJMPLEMENTATION 

#ifndef MALLOC 
#define MALLOC malloc 
#endif /* MALLOC 7 
#ifndef FREE 
#define FREE free 
#endif /* FREE 7 

struct HASHLIST { /* your basic hash table entry 7 

char *name; /* the english name (manages own storage) 7 

void *value; /* the entry (manages own storage) 7 

struct HASHLIST *next; /* the next node in the list 7 

}; 

typedef struct HASHLIST HashNode, *HashNodePtr; 

struct HASHTABLESTRUCT { 

char *name; /* the name of this hash table 7 
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int size; /* the number of slots in the table 7 

HashNodePtr *table; /* the actual table; array is table[size] 7 
int numentries; /* the total number of entries in table 7 
int (*hashf)(); /* hashing function 7 

}; 

typedef struct HASHTABLESTRUCT Table, *HashTable; 

#include "hash.h" 
#include "basics. h" 

#include "aadefs.h" /* basic Object definitions 7 

/* 

* HashErr - error printing 



7 

#ifdef LOGGING 

#define HashErr(message) LogMsg(DEFAULT_LOG_LEVEL, message); 
#else 

#define HashErr(message) fprintf(stderr, message); 
#endif/* LOGGING 7 

/* 

* hash - the internal (default) hashing function 



7 

PRIVATE int 
hash(s, size) 

char *s; 

int size; 

{ 

int hashval; 
if ( size == 0 ) 

return(O); /* avoid divide-by-zero 7 

for ( hashval=0; *s; ) 
hashval += *s++; 
return( hashval % size ); 
} /* end of hash 7 

/* 

* strsave - create space, copy a string 



7 

PRIVATE char * 
strsave(s) 

char *s; 
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{ 

char *p; 
int len; 

if (s== NULL) 
return (char *) NULL; 

len = strlen(s); 
if ( len > 0 ) { 

if( (p = (char *) MALLOC(len+1 )) != NULL ) 

strcpy(p,s); 

return (p); 

} 

else 

return (char *) NULL; 
} /* end of strsave 7 



* HashTableCreate - create a HashTable Object instance 



PUBLIC HashTable 

HashTableCreate(name, size, hashfun) 

char *name; /* optional name of the hash table 7 

int size; /* if <=0, makes default size 7 

int (*hashfun)(); /* user defined hashing function 7 

{ 

HashTable ht; 

if( (ht= (HashTable) MALLOC(sizeof(Table))) == NULL ) 
return (HashTable) NULL; 

ht->name = strsave(name); /* NULL if no name given 7 

ht->numentries = 0; 
if (hashfun == NULL) 

ht->hashf = hash; /* default hash function 7 

else 

ht->hashf = hashfun; 

/* 

* allocate an array, HashNodePtr[size] 

7 

if (size > 0) { 

ht->table = (HashNodePtr *)MALLOC(size * sizeof(HashNodePtr)); 
ht->size = size; 

else 

ht->table = (HashNodePtr *)MALLOC(DEFAULT_HASHSIZE * sizeof(HashNodePtr)); 
ht->size = DEFAULTHASHSIZE; 
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} 

return ht; 
} /* end of HashTableCreate 7 



* HashTableDestroy - deallocate HashTable Object instance and ALL its data 



7 

PUBLIC int 

HashTableDestroy(ht, freefunc) 
HashTable ht; 
int (*freefunc)(); 

{ 

int i; 

HashNodePtr np, next; 

if( ht == NULL || ht->table == NULL ) 
return CL ERROR; 

for( i=0; i < ht->size; i++ ) 
for( np = ht->table[i]; np != NULL; ) { 
next = np->next; 
if( np->name != NULL ) 

FREE( (char *) np->name ); 
if( np->value != NULL ) 

(*freefunc)(np->value); /* call user defined dealloc routine 7 

FREE( (char*)np); 
np = next; 

} 

FREE( (char *) ht->table ); 
if( ht->name != NULL ) 
FREE( (char *) ht->name ); 

FREE( (char *) ht ); /* give it a valid ptr ... please 7 

return CL_SUCCESS; 
} /* end of HashTableDestroy 7 

/* 

* HashTableLookup - find an element in the HashTable 



7 

PUBLIC void * 
HashTableLookup(ht, name) 
HashTable ht; 

char *name; /* name of the node to find 7 

{ 

HashNodePtr np; 
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if( !ht || !name ){ 
HashErr("HashTableLookup: table pointer is NULL\n"); 
return (void *) NULL; 

} 

for(np = ht->table[(*ht->hashf)(name, ht->size)]; np != NULL; np = np->next) 
if( !strcmp(name, np->name) ) 

return (np->value); /* found it 7 

return (void *) NULL; /* didnt 7 

} /* end of HashTableLookup 7 

/* 

* HashTablelnstall - add an element to the HashTable 

* NOTE: if (char *)name is already in the hash table, HashTablelnstall() 

* REPLACES the existing value with the new value passed as a parameter 
UNLESS the passed value is (void *)NULL. 



7 

PUBLIC int 

HashTablelnstall(ht, name, value) 

HashTable ht; /* the hash table to use 7 

char *name; /* an english name 7 

void *value; /* the entry 7 

{ 

HashNodePtr np; 
int hashval; 

if( ht == NULL ) { 
HashErrfHashTablelnstall: table pointer is NULL\n"); 
return CLERROR; 

} 

if( name == NULL ) { 
HashErrfHashTablelnstall: name pointer is NULL\n"); 
return CL ERROR; 

} 

if( (np = HashTableLookup(ht, name)) == NULL ) { /* not yet defined 7 
np = (HashNodePtr) MALLOC(sizeof(HashNode)); 
if( np == NULL ) 
return CL ERROR; 
np->value = NULL; 

if( (np->name = strsave(name)) == NULL ) 
return CL ERROR; 

hashval = (*ht->hashf)(np->name, ht->size); 
np->next = ht->table[hashval]; 
ht->table[hashval] = np; 

} 

else { /* — already defined — 7 

if(( np->value != NULL ) && (value != NULL) ) 
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FREE( (char *) np->value ); 

} 

if (value != NULL) { 
np->value = value; 
return CL_SUCCESS; 

} 

return CL_SUCCESS; 
} /* end of HashTablelnstall 7 

/* 

* HashTableRemove - remove an element from the HashTable 

* NOTE: node data is NOT removed (the function HashTableDestroyQ DOES). 



PUBLIC int 

HashTableRemove(ht, name) 
HashTable ht; 
char *name; 

{ 

HashNodePtr np, temp, prev; 
int hashval; 

if (!name || !ht) { 

HashErrfHashTableRemove: table pointer or name is NULL\n"); 
return CL ERROR; 

} 

if ((np = HashTableLookup(ht, name)) != NULL ) { /* found it 7 

hashval = (*ht->hashf)(name, ht->size); 

if (np == ht->table[hashval]) { /* no previous entries 7 

prev = NULL; 

} 

else { /* find the previous 7 

for (temp = ht->table[hashval]; 
temp!=NULL && temp->next!=np; 
temp = temp->next ); 
prev = temp; 

} 

/* 

* if previous, set prev->next to point over np; 

* if no previous, reset root of list 

7 

if (prev != NULL) 
prev->next = np->next; 
else 
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ht->table[hashval] = np->next; 

if (np->name != (char *) NULL) 
FREE ((char *) np->name ); 

FREE ((char *) np); 

return CL_SUCCESS; 

} 

return CL_ERROR; /* not in table, so can't remove it 7 

} /* end of HashTableRemove 7 

/* 

* HashTableApply - apply a function to (the data of) each element of HashTable 



7 

PUBLIC int 

HashTableApply(ht, func) 
HashTable ht; 
int (*func)(); 

{ 

int i; 
HashNodePtr np; 

if (ht==NULL){ 
HashErrfHashTableApply: table pointer is NULL\n"); 
return CLERROR; 

} 

if (func==NULL){ 
HashErrfHashTableApply: function pointer is NULL\n"); 
return CL ERROR; 

} 

for ( i=0; i<ht->size; i++ ) 
for ( np = ht->table[i]; np!=NULL; np = np->next ) 
if ( (*func)( ht, np->value ) ) 
return CL ERROR; 

return CL_SUCCESS; 
} /* end of HashTableApply 7 

/* 

* HashTableGetName - get a HashTable's (optional) name 



7 

PUBLIC char* 

HashTableGetName(HashTable ht) 
{ 

if (!ht) 
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return (char *) NULL; 
else 

return ht->name; 
} /* end of HashTableGetName 7 

/* 

* HashTableGetNumEntries - get a HashTable's number of of members 



7 

PUBLIC int 

HashTableGetNumEntries(HashTable ht) 
{ 

if (!ht) 

return CL ERROR; 
else 

return ht->numentries; 
} /* end of HashTableGetNumEntries 7 

/* 

* HashTableSetFunction - set a user defined hashing function. 

* NOTE: function is in the form: int hashf(char *str, int s), where "s" is 

* the size of the hash table. 



7 

PUBLIC void 

HashTableSetFunction(HashTable ht, int (*hashf)()) 
{ 

if (!ht) 
return; 
else 

ht->hashf = hashf; 
} /* end of HashTableSetFunction 7 

/* 

* HashTableDumpTable - dump HashTable Object to file 



7 

PUBLIC int 

HashTableDumpTable(ht, fp, prt) 
HashTable ht; 
FILE *fp; 
int (*prt)(); 

{ 

HashNodePtr np; 
int i; 

if (ht==NULL){ 
HashErrfHashTableDumpTable: table pointer is NULL\n"); 
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return CLERROR; 

} 

if (fp==NULL){ 
HashErr("HashTableDumpTable: file pointer is NULL\n"); 
return CL ERROR; 

} 

fprintf(fp,"%s\n%d\n", ht->name, ht->size); /* table's name, buffer size 7 

/* dump table elements calling user-defined function to dump value 7 

for( i=0; i < ht->size; i++ ) 
for(np = ht->table[i]; np!=NULL; np = np->next) { 
fprintf(fp,"%s\n", np->name); 
if((*prt)(fp, np->value)) { 

HashErrfHashTableDumpTable: error dumping data\n"); 
return CL ERROR; 

} 

} 

return CL_SUCCESS; 
} /* end of HashTableDumpTable 7 



* HashTableLoadTable - Load a HashTable Object from a file 



7 

PUBLIC HashTable 
HashTableLoadTable(fp, sen, hashfun) 

FILE *fp; 

void *(*scn)(); 

int (*hashfun)(); 

{ 

int size; 

char buf[INTERNAL_STRING_LENGTH]; 

HashTable ht; 

extern char msgString[]; 

if (!fp ||feof(fp)){ 
HashErr("HashTableLoadTable: file pointer is NULL or EOF\n"); 
return (HashTable) NULL; 

} 

/* get table name and size 7 
fscanf(fp, "%s\n%d\n", buf, &size); 
/* manufacture an instance 7 
ht = HashTableCreate(buf, size, NULL); 
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if(!ht){ 

HashErrfHashTableLoadTable: cant create hash table\n"); 
return (HashTable) NULL; 

} 

ht->numentries = 0; 

/* set the hashing function 7 

if (hashfun == NULL) 
HashTableSetFunction(ht, hash); 
else 

HashTableSetFunction(ht, hashfun); 

/* read data into table 7 

while(!feof(fp)) { 
int i = 2, err = 0; 
void *value; 

value = (void *)NULL; 

err = fscanf(fp, "%s\n", buf); /* get entry's name, then ... 7 
if (err < 0) { 

HashErrfHashTableLoadTable: load file empty\n"); 
return (HashTable) NULL; 

} 

value = (*scn)(fp); /* ... call user-defined function to get value 7 

if ((! *buf) && lvalue) { 

sprintf(msgString, "HashTableLoadTable: error scanning line %d\n", i); 
HashErr(msgString); 

} 

if (!HashTablelnstall(ht, buf, value)) { 

HashErrfHashTableLoadTable: HashTablelnstall failed\n"); 
return (HashTable) NULL; 

} 

} 

return ht; 
} /* end of HashTableLoadTable 7 



Very truly yours, 

Steven M. Hoffberg 
Milde & Hoffberg, LLP 
Suite 460 
10 Bank Street 
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White Plains, NY 10606 
(914) 949-3100 tel. 
(914) 949-3416 fax 



Confidentiality Notice: This message, and any attachments thereto, may contain confidential information which is 
legally privileged. The information is intended only for the use of the intended recipient, generally the individual or 
entity named above. If you believe you are not the intended recipient, or in the event that this document is 
received in error, or misdirected, you are requested to immediately inform the sender by reply e-mail at 
Steve@Hoffberg.org and destroy all copies of the e-mail file and attachments. You are hereby notified that any 
disclosure, copying, distribution or use of any information contained in this transmission other than by the 
intended recipient is strictly prohibited. 
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